home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ OEM Info CPU 3.xpl < prev    next >
Text File  |  2001-02-02  |  2KB  |  57 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="2"
  4. "UIPATH 1"="Hardware\CPU"
  5. "NAME"="CPU 3 Information"
  6. "VERSION"="1.30"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Type Text"
  9. "TEXT 2"="Vendor Text"
  10. "DESCRIPTION 1"="To see these values, select "Start" | "Settings" | "Control Panel" and click "System"."
  11. "DESCRIPTION 2"="Or, press WINDOWS KEY+PAUSE."
  12. "DESCRIPTION 3"="NOTE: On some systems this information might be automatically replaced by Windows on every startup."
  13. "DESCRIPTION 4"="This is based on the original plug-in for single CPU systems, made by TeX HeX, but has been expanded for multiple CPU powered systems. Win9x/ME only support a single CPU. WinNT, 2000 and above support multiple CPUs."
  14. "DESCRIPTION 5"="This will be disabled on Win2k/NT systems if you only have a single CPU. All Win9x/ME systems will show it as disabled as well. This is normal."
  15. "AUTHOR"="Xteq Systems (CptSiskoX)"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="The more CPU power, the better.  Now if only Intel would license AMD 3DNow! technology. :)"
  19.  
  20.  
  21. sP1="HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\2\"
  22. sV1="Identifier"
  23. sV2="VendorIdentifier"
  24.  
  25.  
  26. 'Called when the Plugin is started
  27. Sub Plugin_Initialize
  28.  if RegPathExists(sP1) then
  29.     s=RegReadValue(sP1 & sV1)
  30.     SetUIElement 1,s
  31.  
  32.     s=RegReadValue(sP1 & sV2)
  33.     SetUIElement 2,s
  34.  else
  35.     Disable
  36.  end if
  37. End Sub
  38.  
  39. 'Called when the Plugin should validate the Data the user has entered
  40. Sub Plugin_CheckData(ElementIndex)
  41. End Sub
  42.  
  43. 'Called when the Plugin should apply the changes
  44. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  45.  s=GetUIElement(1)
  46.  Call RegWriteValue(sP1 & sV1,s,1)
  47.  
  48.  s=GetUIElement(2)
  49.  Call RegWriteValue(sP1 & sV2,s,1)
  50.  
  51.  Call Restart()
  52. End Sub
  53.  
  54. 'Called when the Plugin is about to be removed from memory
  55. Sub Plugin_Terminate
  56. End Sub
  57.